﻿Imports System.ComponentModel

Namespace Controls
    Public Class WebControl
        Inherits System.Web.UI.WebControls.WebControl
        Implements IWebControl

#Region "变量声明"
        Private _hintTitle As String = ""

        Private _hintInfo As String = ""

        Private _hintLeftOffSet As Integer = 0

        Private _hintTopOffSet As Integer = 0

        Private _hintShowType As String = "up"
        '或"down" 
        Private _hintHeight As Integer = 50
#End Region

        ''' <summary> 
        ''' 提示框标题 
        ''' </summary> 
        <Bindable(True), Category("Appearance"), DefaultValue("")> _
        Public Property HintTitle() As String Implements IWebControl.HintTitle
            Get
                Return _hintTitle
            End Get
            Set(ByVal value As String)
                _hintTitle = value
            End Set
        End Property


        ''' <summary> 
        ''' 提示框内容 
        ''' </summary> 
        <Bindable(True), Category("Appearance"), DefaultValue("")> _
        Public Property HintInfo() As String Implements IWebControl.HintInfo
            Get
                Return _hintInfo
            End Get
            Set(ByVal value As String)
                _hintInfo = value
            End Set
        End Property


        ''' <summary> 
        ''' 提示框左侧偏移量 
        ''' </summary> 
        <Bindable(True), Category("Appearance"), DefaultValue(0)> _
        Public Property HintLeftOffSet() As Integer Implements IWebControl.HintLeftOffSet
            Get
                Return _hintLeftOffSet
            End Get
            Set(ByVal value As Integer)
                _hintLeftOffSet = value
            End Set
        End Property


        ''' <summary> 
        ''' 提示框顶部偏移量 
        ''' </summary> 
        <Bindable(True), Category("Appearance"), DefaultValue(0)> _
        Public Property HintTopOffSet() As Integer Implements IWebControl.HintTopOffSet
            Get
                Return _hintTopOffSet
            End Get
            Set(ByVal value As Integer)
                _hintTopOffSet = value
            End Set
        End Property


        ''' <summary> 
        ''' 提示框风格,up(上方显示)或down(下方显示) 
        ''' </summary> 
        <Bindable(True), Category("Appearance"), DefaultValue("up")> _
        Public Property HintShowType() As String
            Get
                Return _hintShowType
            End Get
            Set(ByVal value As String)
                _hintShowType = value
            End Set
        End Property


        ''' <summary> 
        ''' 提示框高度 
        ''' </summary> 
        <Bindable(True), Category("Appearance"), DefaultValue(50)> _
        Public Property HintHeight() As Integer Implements IWebControl.HintHeight
            Get
                Return _hintHeight
            End Get
            Set(ByVal value As Integer)
                _hintHeight = value
            End Set
        End Property

    End Class
End Namespace